Monster Media 1996 #15/Monster Media Number 15 (Monster Media)(July 1996).ISO/wildcat/lach102.zip/LACH.EXE/ENDFIGHT.WCX

Wildcat! WCX | 1996-01-28 | 11KB | 787 lines

'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx  10650 bytes  03/09/122  08:28:16am
'! Code Segment Size  :8166 bytes
'! Data Segment Size  :5275 bytes
'! String Segment Size:2484 bytes
'! Compiled with WCC version 4.12

      Type Type29
        s0 As String*15
        i15 As Integer
      End Type

      Type Type28
        s0 As String*15
        s15 As String*15
        Filler30(1 To 8) As Byte
        s38 As String*2
        s40 As String*15
        s55 As String*7
        s62 As String*7
        s69 As String*6
        Filler75(1 To 1) As Byte
        s76 As String*3
        s79 As String*3
        Filler82(1 To 6) As Byte
        s88 As String*3
        s91 As String*7
        s98 As String*3
        Filler101(1 To 8) As Byte
        s109 As String*3
        s112 As String*3
        s115 As String*3
        s118 As String*15
        s133 As String*3
        s136 As String*3
        s139 As String*3
        s142 As String*4
        s146 As String*4
        s150 As String*3
        s153 As String*3
        s156 As String*3
        s159 As String*3
        s162 As String*3
        s165 As String*3
        Filler168(1 To 3) As Byte
        s171 As String*1
      End Type

      Type Type27
        s0 As String*15
        s15 As String*15
        s30 As String*15
        s45 As String*15
        s60 As String*15
        s75 As String*15
        s90 As String*15
        s105 As String*15
        s120 As String*15
        s135 As String*15
        s150 As String*15
        s165 As String*15
      End Type

      Type Type26
        s0 As String*15
        s15 As String*15
        s30 As String*15
        s45 As String*15
        s60 As String*15
        s75 As String*15
        s90 As String*15
        s105 As String*15
        s120 As String*15
        s135 As String*15
        s150 As String*15
        s165 As String*15
      End Type

      Declare Sub Sub394
      Declare Sub Sub518
      Declare Sub Sub671
      Declare Sub Sub795
      Declare Sub Sub919
      Declare Sub Sub1043
      Declare Sub Sub1174
      Declare Sub Sub1405
      Declare Sub Sub1507
      Declare Sub Sub1593
      Declare Sub Sub1667
      Declare Sub Sub1686
      Declare Sub Sub2184
      Declare Sub Sub2209
      Declare Sub Sub2459
      Declare Sub Sub2477
      Declare Sub Sub2541
      Declare Sub Sub5179
      Declare Sub Sub6144
      Declare Sub Sub7852
      Declare Sub Sub8108

      Dim t29_4463 As Type29
      Dim i4480 As Integer
      Dim i4654 As Integer
      Dim t28_4656 As Type28
      Dim t27_4828 As Type27
      Dim t26_5008 As Type26
      Dim s5190 As String*1
      Dim i5191 As Integer
      Dim i5195 As Integer
      Dim i5197 As Integer
      Dim i5199 As Integer
      Dim r5201 As Real
      Dim s5207 As String*15
      Dim s5222 As String*15
      Dim i5237 As Integer
      Dim i5239 As Integer
      Dim i5241 As Integer
      Dim r5243 As Real
      Dim i5249 As Integer
      Dim i5251 As Integer
      Dim s5253 As String
      Dim i5257 As Integer
      Dim i5259 As Integer
      Dim s5261 As String
      Dim s5265 As String
      Dim s5269 As String
      Dim i5273 As Integer

      s5261 = "          @07@─────@08@══════════@07@──────"
      Sub7852
      Sub394
      i5195 = 500
      i5197 = 500
      i5199 = 1000
      r5201 = 500000
      s5207 = t26_5008.s165
      s5222 = t27_4828.s165
      Cls
      MorePrompt(0)
      DisplayTextFile(ProgPath + "lfight1.BBS")
      Do
  149   Locate 23, 1
        s5190 = InKey(1213417543)
        If InStr("CF", UCase(s5190)) Then
          GoTo 205
        End If
  199 Loop
  205 If UCase(s5190) = "F" Then
        Sub2184
      End If
  233 Cls
      MorePrompt(0)
      DisplayTextFile(ProgPath + "lfight2.BBS")
      Do
  255   Locate 23, 1
        s5190 = InKey(1213417543)
        If InStr("EC", UCase(s5190)) Then
          GoTo 311
        End If
  305 Loop
  311 If UCase(s5190) = "E" Then
        Sub8108
      End If
  339 Cls
      MorePrompt(0)
      DisplayTextFile(ProgPath + "lfight4.BBS")
      Sub1507
      Sub6144
      End

'! Called 1 time
      Sub Sub394
        s5265 = "@0D@" + Trim(t28_4656.s15) + " @05@found @04@The Lachrymator@8C@!"
        s5269 = "@05@Stay tuned to find out what happens NEXT!!!!!!!!!!!!!!!!!!!!!!!"
        Open ProgPath + "today.txt" For Append As i4654
        Print #i4654, s5265
        Print #i4654, s5269
        Print #i4654, s5261
        Close i4654
      End Sub

'! Called 1 time
      Sub Sub518
        s5265 = "@0D@" + Trim(t28_4656.s15) + " @05@was brutally TORTURED and MURDERED by @04@The Lachrymator@8C@!"
        s5269 = "@05@To Arms@04@! @05@We shall avenge the death of " + "@0D@" + Trim(t28_4656.s15) + " @05@the Warrior...."
        Open ProgPath + "today.txt" For Append As i4654
        Print #i4654, s5265
        Print #i4654, s5269
        Print #i4654, s5261
        Close i4654
      End Sub

'! Called 1 time
      Sub Sub671
        s5265 = "@0D@" + Trim(t28_4656.s15) + " @05@decided against summoning @04@The Lachrymator@84@!"
        s5269 = "@05@Why don't we all tell them what a WUSS they are!"
        Open ProgPath + "today.txt" For Append As i4654
        Print #i4654, s5265
        Print #i4654, s5269
        Print #i4654, s5261
        Close i4654
      End Sub

'! Called 1 time
      Sub Sub795
        s5265 = "@0D@" + Trim(t28_4656.s15) + " @05@ran from @04@The Lachrymator @05@like a little WUSS@84@!"
        s5269 = "@05@Why don't we all go finish what @04@The Lachrymator @05@didn't get to do?!?!?"
        Open ProgPath + "today.txt" For Append As i4654
        Print #i4654, s5265
        Print #i4654, s5269
        Print #i4654, s5261
        Close i4654
      End Sub

'! Called 1 time
      Sub Sub919
        s5265 = "@0D@" + Trim(t28_4656.s15) + " @05@was VICTORIOUS in combat against @04@The Lachrymator@8C@!!!"
        s5269 = "@05@Something tells me that something this @04@EVIL @05@won't stay dead for long....."
        Open ProgPath + "today.txt" For Append As i4654
        Print #i4654, s5265
        Print #i4654, s5269
        Print #i4654, s5261
        Close i4654
      End Sub

'! Called 1 time
      Sub Sub1043
        s5265 = "@85@NEWSFLASH!! " + "@0D@" + Trim(t28_4656.s15) + " @05@has joined @0D@The Lachrymator@85@!!"
        s5269 = "@05@Of course they were killed for this great dishonor!!"
        Open ProgPath + "today.txt" For Append As i4654
        Print #i4654, s5265
        Print #i4654, s5269
        Print #i4654, s5261
        Close i4654
      End Sub

'! Called 1 time
      Sub Sub1174
        Dim i65534 As Integer

        i65534 = 0
        If Exists(ProgPath + "lhonor.dat") Then
          Open ProgPath + "lhonor.dat" For Random As i4654 Len = 17 '! This value should probably be replaced with a "SizeOf" expression
          Do
 1236       i65534 = i65534 + 1
            Get i4654, i65534, t29_4463 '! 17 bytes
            If t29_4463.s0 = t28_4656.s15 Then
              GoTo 1324
            End If
 1298       t29_4463.i15 = 0
          Loop While Not EOF(i4654)
 1324     i65534 = i65534 + 1
        End If
 1338   t29_4463.i15 = t29_4463.i15 + 1
        t29_4463.s0 = t28_4656.s15
        Put i4654, i65534, t29_4463 '! 17 bytes
        Close i4654
      End Sub

'! Called 1 time
      Sub Sub1405
        s5265 = "@8C@NEWSFLASH!! NEWSFLASH!! NEWSFLASH!! NEWSFLASH!!"
        s5269 = "@0D@The Seer @05@has reported that @04@The Lachrymator @05@has been RESURRECTED!"
        Open ProgPath + "today.txt" For Append As i4654
        Print #i4654, s5265
        Print #i4654, s5269
        Print #i4654, s5261
        Close i4654
      End Sub

'! Called 4 times
      Sub Sub1507
        Locate 22, 27
        Print "@0D@Stroke a @0F@KEY, @0D@Warrior!@0A@ "
        Do
 1532     s5190 = InKey(1213417543)
          If UCase(s5190) > "" Then
            GoTo 1580
          End If
 1574   Loop
 1580   Locate 22, 1
        ClrEOL
      End Sub

'! Called 5 times
      Sub Sub1593
        i4654 = FreeFile
        Open ProgPath + "lachuser.dat" For Random As i4654 Len = 172 '! This value should probably be replaced with a "SizeOf" expression
        Put i4654, i4480, t28_4656 '! 172 bytes
        Close i4654
      End Sub

'! Called 1 time
      Sub Sub1667
        Sub1593
        End
      End Sub

'! Called 2 times
      Sub Sub1686
        Dim s65532 As String

        t28_4656.s153 = "000"
        t28_4656.s156 = "000"
        t28_4656.s159 = "000"
        t28_4656.s162 = "000"
        t28_4656.s165 = "000"
        t28_4656.s38 = "1 "
        t28_4656.s40 = "YOUR FISTS     "
        t28_4656.s118 = "BIRTHDAY SUIT  "
        t28_4656.s91 = "0      "
        t28_4656.s98 = "000"
        t28_4656.s109 = "000"
        t28_4656.s112 = "1  "
        t28_4656.s115 = "000"
        t28_4656.s133 = "000"
        t28_4656.s55 = "25     "
        t28_4656.s69 = "MAP02 "
        t28_4656.s76 = "0  "
        t28_4656.s79 = "0  "
        t28_4656.s88 = "000"
        t28_4656.s139 = "000"
        t28_4656.s136 = "YES"
        t28_4656.s142 = "15  "
        t28_4656.s146 = "15  "
        t28_4656.s150 = "000"
        t28_4656.s171 = "#"
        Open ProgPath + "lach10.cfg" For Input As i4654
        i5191 = 1
        Do
 2105     Input #i4654, s65532
          i5191 = i5191 + 1
        Loop Until i5191 = 5
        Close i4654
        t28_4656.s62 = Pad(s65532, 7)
        Sub1593
      End Sub

'! Called 1 time
      Sub Sub2184
        Sub671
        Sub1593
        End
      End Sub

'! Called 1 time
      Sub Sub2209
        Sub518
        i5241 = 0
        t28_4656.s136 = "NO "
        t28_4656.s142 = Str(i5241)
        t28_4656.s62 = "0      "
        If Len(t28_4656.s62) <= 7 Then
          t28_4656.s62 = Pad(t28_4656.s62, 7)
        End If
 2326   If Len(t28_4656.s142) <= 4 Then
          t28_4656.s142 = Pad(t28_4656.s142, 4)
        End If
 2374   If Len(t28_4656.s136) <= 3 Then
          t28_4656.s136 = Pad(t28_4656.s136, 3)
        End If
 2422   Sub1593
        MorePrompt(0)
        DisplayTextFile(ProgPath + "lachdead.ans")
        Delay 1
        End
      End Sub

'! Called 1 time
      Sub Sub2459
        Sub795
      End Sub

'! Called 1 time
      Sub Sub2477
        Cls
        MorePrompt(0)
        DisplayTextFile(ProgPath + "lfight5.BBS")
        Sub1507
        Sub1174
        Sub919
        Sub1405
        Sub1686
      End Sub

'! Called 2 times
      Sub Sub2541
        If t28_4656.s40 = "YOUR FISTS     " Then
          i5249 = Rnd * 100 Mod 5 + 1 + 2
        End If
 2601   If t28_4656.s40 = t26_5008.s0 Then
          i5249 = Rnd * 100 Mod 10 + 1 + 4
        End If
 2653   If t28_4656.s40 = t26_5008.s15 Then
          i5249 = Rnd * 100 Mod 20 + 1 + 6
        End If
 2709   If t28_4656.s40 = t26_5008.s30 Then
          i5249 = Rnd * 100 Mod 30 + 1 + 8
        End If
 2765   If t28_4656.s40 = t26_5008.s45 Then
          i5249 = Rnd * 100 Mod 40 + 1 + 10
        End If
 2821   If t28_4656.s40 = t26_5008.s60 Then
          i5249 = Rnd * 100 Mod 50 + 1 + 12
        End If
 2877   If t28_4656.s40 = t26_5008.s75 Then
          i5249 = Rnd * 100 Mod 60 + 1 + 14
        End If
 2933   If t28_4656.s40 = t26_5008.s90 Then
          i5249 = Rnd * 100 Mod 70 + 1 + 16
        End If
 2989   If t28_4656.s40 = t26_5008.s105 Then
          i5249 = Rnd * 100 Mod 80 + 1 + 18
        End If
 3045   If t28_4656.s40 = t26_5008.s120 Then
          i5249 = Rnd * 100 Mod 90 + 1 + 20
        End If
 3101   If t28_4656.s40 = t26_5008.s135 Then
          i5249 = Rnd * 100 Mod 110 + 1 + 22
        End If
 3157   If t28_4656.s40 = t26_5008.s150 Then
          i5249 = Rnd * 100 Mod 150 + 1 + 24
        End If
 3213   If t28_4656.s40 = t26_5008.s165 Then
          i5249 = Rnd * 100 Mod 250 + 1 + 26
        End If
 3269   If t28_4656.s118 = "BIRTHDAY SUIT  " Then
          i5251 = Rnd * 100 Mod 5 + 1
        End If
 3316   If t28_4656.s118 = t27_4828.s0 Then
          i5251 = Rnd * 100 Mod 10 + 1
        End If
 3364   If t28_4656.s118 = t27_4828.s15 Then
          i5251 = Rnd * 100 Mod 20 + 1
        End If
 3416   If t28_4656.s118 = t27_4828.s30 Then
          i5251 = Rnd * 100 Mod 30 + 1
        End If
 3468   If t28_4656.s118 = t27_4828.s45 Then
          i5251 = Rnd * 100 Mod 40 + 1
        End If
 3520   If t28_4656.s118 = t27_4828.s60 Then
          i5251 = Rnd * 100 Mod 50 + 1
        End If
 3572   If t28_4656.s118 = t27_4828.s75 Then
          i5251 = Rnd * 100 Mod 60 + 1
        End If
 3624   If t28_4656.s118 = t27_4828.s90 Then
          i5251 = Rnd * 100 Mod 70 + 1
        End If
 3676   If t28_4656.s118 = t27_4828.s105 Then
          i5251 = Rnd * 100 Mod 80 + 1
        End If
 3728   If t28_4656.s118 = t27_4828.s120 Then
          i5251 = Rnd * 100 Mod 90 + 1
        End If
 3780   If t28_4656.s118 = t27_4828.s135 Then
          i5251 = Rnd * 100 Mod 100 + 1
        End If
 3832   If t28_4656.s118 = t27_4828.s150 Then
          i5251 = Rnd * 100 Mod 110 + 1
        End If
 3884   If t28_4656.s118 = t27_4828.s165 Then
          i5251 = Rnd * 100 Mod 120 + 1
        End If
 3936   If s5207 = t26_5008.s0 Then
          i5257 = Rnd * 100 Mod 10 + 1 + 1
        End If
 3984   If s5207 = t26_5008.s15 Then
          i5257 = Rnd * 100 Mod 20 + 1 + 2
        End If
 4036   If s5207 = t26_5008.s30 Then
          i5257 = Rnd * 100 Mod 30 + 1 + 3
        End If
 4088   If s5207 = t26_5008.s45 Then
          i5257 = Rnd * 100 Mod 40 + 1 + 4
        End If
 4140   If s5207 = t26_5008.s60 Then
          i5257 = Rnd * 100 Mod 50 + 1 + 5
        End If
 4192   If s5207 = t26_5008.s75 Then
          i5257 = Rnd * 100 Mod 60 + 1 + 6
        End If
 4244   If s5207 = t26_5008.s90 Then
          i5257 = Rnd * 100 Mod 70 + 1 + 7
        End If
 4296   If s5207 = t26_5008.s105 Then
          i5257 = Rnd * 100 Mod 80 + 1 + 8
        End If
 4348   If s5207 = t26_5008.s120 Then
          i5257 = Rnd * 100 Mod 90 + 1 + 9
        End If
 4400   If s5207 = t26_5008.s135 Then
          i5257 = Rnd * 100 Mod 110 + 1 + 10
        End If
 4452   If s5207 = t26_5008.s150 Then
          i5257 = Rnd * 100 Mod 150 + 1 + 11
        End If
 4504   If s5207 = t26_5008.s165 Then
          i5257 = Rnd * 100 Mod 250 + 1 + 12
        End If
 4556   If s5222 = t27_4828.s0 Then
          i5259 = Rnd * 100 Mod 10 + 1 + 1
        End If
 4604   If s5222 = t27_4828.s15 Then
          i5259 = Rnd * 100 Mod 20 + 1 + 2
        End If
 4656   If s5222 = t27_4828.s30 Then
          i5259 = Rnd * 100 Mod 30 + 1 + 3
        End If
 4708   If s5222 = t27_4828.s45 Then
          i5259 = Rnd * 100 Mod 40 + 1 + 4
        End If
 4760   If s5222 = t27_4828.s60 Then
          i5259 = Rnd * 100 Mod 50 + 1 + 5
        End If
 4812   If s5222 = t27_4828.s75 Then
          i5259 = Rnd * 100 Mod 60 + 1 + 6
        End If
 4864   If s5222 = t27_4828.s90 Then
          i5259 = Rnd * 100 Mod 70 + 1 + 7
        End If
 4916   If s5222 = t27_4828.s105 Then
          i5259 = Rnd * 100 Mod 80 + 1 + 8
        End If
 4968   If s5222 = t27_4828.s120 Then
          i5259 = Rnd * 100 Mod 90 + 1 + 9
        End If
 5020   If s5222 = t27_4828.s135 Then
          i5259 = Rnd * 100 Mod 100 + 1 + 10
        End If
 5072   If s5222 = t27_4828.s150 Then
          i5259 = Rnd * 100 Mod 110 + 1 + 11
        End If
 5124   If s5222 = t27_4828.s165 Then
          i5259 = Rnd * 100 Mod 120 + 1 + 12
        End If
 5176
      End Sub

'! Called 1 time
      Sub Sub5179
        If Len(Trim(t28_4656.s15)) = 1 Then
          s5253 = "@08@·∙..·∙." + "@0D@" + Trim(t28_4656.s15) + "@08@.·∙..·∙·"
        End If
 5252   If Len(Trim(t28_4656.s15)) = 2 Then
          s5253 = "@08@·∙..·∙." + "@0D@" + Trim(t28_4656.s15) + "@08@·∙..·∙·"
        End If
 5316   If Len(Trim(t28_4656.s15)) = 3 Then
          s5253 = "@08@·∙..·∙" + "@0D@" + Trim(t28_4656.s15) + "@08@·∙..·∙·"
        End If
 5380   If Len(Trim(t28_4656.s15)) = 4 Then
          s5253 = "@08@·∙..·∙" + "@0D@" + Trim(t28_4656.s15) + "@08@∙..·∙·"
        End If
 5444   If Len(Trim(t28_4656.s15)) = 5 Then
          s5253 = "@08@·∙..·" + "@0D@" + Trim(t28_4656.s15) + "@08@∙..·∙·"
        End If
 5508   If Len(Trim(t28_4656.s15)) = 6 Then
          s5253 = "@08@·∙..·" + "@0D@" + Trim(t28_4656.s15) + "@08@..·∙·"
        End If
 5572   If Len(Trim(t28_4656.s15)) = 7 Then
          s5253 = "@08@·∙.." + "@0D@" + Trim(t28_4656.s15) + "@08@..·∙·"
        End If
 5636   If Len(Trim(t28_4656.s15)) = 8 Then
          s5253 = "@08@·∙.." + "@0D@" + Trim(t28_4656.s15) + "@08@.·∙·"
        End If
 5700   If Len(Trim(t28_4656.s15)) = 9 Then
          s5253 = "@08@·∙." + "@0D@" + Trim(t28_4656.s15) + "@08@.·∙·"
        End If
 5764   If Len(Trim(t28_4656.s15)) = 10 Then
          s5253 = "@08@·∙." + "@0D@" + Trim(t28_4656.s15) + "@08@·∙·"
        End If
 5828   If Len(Trim(t28_4656.s15)) = 11 Then
          s5253 = "@08@·∙" + "@0D@" + Trim(t28_4656.s15) + "@08@·∙·"
        End If
 5892   If Len(Trim(t28_4656.s15)) = 12 Then
          s5253 = "@08@·∙" + "@0D@" + Trim(t28_4656.s15) + "@08@∙·"
        End If
 5956   If Len(Trim(t28_4656.s15)) = 13 Then
          s5253 = "@08@·" + "@0D@" + Trim(t28_4656.s15) + "@08@∙·"
        End If
 6020   If Len(Trim(t28_4656.s15)) = 14 Then
          s5253 = "@08@·" + "@0D@" + Trim(t28_4656.s15) + "@08@·"
        End If
 6084   If Len(Trim(t28_4656.s15)) = 15 Then
          s5253 = "@0D@" + Trim(t28_4656.s15) + "@08@·"
        End If
 6141
      End Sub

'! Called 1 time
      Sub Sub6144
        Dim l65503 As Long
        Dim i65507 As Integer
        Dim s65509 As String
        Dim s65513 As String*1
        Dim s65514 As String
        Dim s65518 As String
        Dim s65522 As String
        Dim i65526 As Integer
        Dim i65528 As Integer
        Dim i65530 As Integer
        Dim i65532 As Integer
        Dim i65534 As Integer

        Sub5179
        i5237 = Val(Trim(t28_4656.s79))
        i5239 = Val(Trim(t28_4656.s76))
        i5241 = Val(Trim(t28_4656.s142))
        r5243 = Val(Trim(t28_4656.s55))
        s65513 = "Y"
        i65534 = Rnd * 100 Mod 50 + 1
        i65532 = Rnd * 100 Mod 50 + 1
        i65534 = i65534 + Val(Trim(t28_4656.s38))
        If i65534 >= i65532 Then
          s65514 = "USER"
        End If
 6358   If i65532 > i65534 Then
          s65514 = "LACH"
        End If
        Do
          Do
 6385       Cls
            MorePrompt(0)
            DisplayTextFile(ProgPath + "lcombat.BBS")
            Locate 6, 8
            Print s5253
            Locate 8, 18
            Print "@0D@" + Str(i5241)
            Locate 9, 18
            Print "@0D@" + Str(i5237)
            Locate 10, 18
            Print "@0D@" + Str(i5239)
            Locate 11, 18
            Print "@0D@" + Str(r5243)
            Locate 14, 8
            Print "@0D@" + Trim(t28_4656.s40)
            Locate 16, 8
            Print "@0D@" + Trim(t28_4656.s118)
            Locate 8, 65
            Print "@0D@" + Str(i5199)
            Locate 9, 65
            Print "@0D@" + Str(i5195)
            Locate 10, 65
            Print "@0D@" + Str(i5197)
            Locate 11, 65
            Print "@0D@" + Str(r5201)
            Locate 14, 56
            Print "@0D@" + Trim(s5207)
            Locate 16, 56
            Print "@0D@" + Trim(s5222)
            If s65513 = "Y" Then
              Locate 21, 4
              Print "@0D@This is your LAST CHANCE to run...Do ya wanna run away like a WUSS? @0D@(@0F@Y@0D@/@0F@N@0D@)"
              Do
 6783           Locate 23, 1
                s5190 = InKey(1213417543)
                If InStr("YN", UCase(s5190)) Then
                  GoTo 6839
                End If
 6833         Loop
 6839         Locate 19, 1
              ClrEOL
              If UCase(s5190) = "Y" Then
                s65509 = "WUSS"
                GoTo 7731
                GoTo 6909
              End If
 6892         s65513 = "N"
            Else
 6909         If i65530 > i65528 Then
                i65530 = i65528
              End If
 6937         Locate 20, 14
              Print "@0D@" + s65522 + "@05@ hits " + "@0D@" + s65518 + "@05@ for " + "@0D@" + Str(i65528) + "@05@ Damage!"
              Locate 21, 14
              Print "@0D@" + s65518 + "@0D@'s @05@armor absorbed " + "@0D@" + Str(i65530) + "@05@ Damage!"
              Locate 22, 14
              Print "@05@Total Damage inflicted on " + "@0D@" + s65518 + " @05@is " + "@0D@" + Str(i65526) + " @05@Hit Points."
              Locate 23, 9
              Print "@04@Are you sure you want to continue with this @84@CARNAGE@04@?¿?¿ (@0C@Y@04@/@0C@N@04@)"
              Do
 7139           Locate 23, 1
                s5190 = InKey(1213417543)
                If InStr("YN", UCase(s5190)) Then
                  GoTo 7195
                End If
 7189         Loop
 7195         If UCase(s5190) = "Y" Then
              Else
 7223           If UCase(s5190) = "N" Then
                  s65509 = "WUSS"
 7275             For i5273 = 20 To 23 Step 1
                    Locate i5273, 1
                    ClrEOL
                  Next
 7361             GoTo 7731
                End If
              End If
            End If
 7367       If UCase(s65514) = "USER" Then
              GoTo 7575
            End If
 7393       If UCase(s65514) = "LACH" Then
              GoTo 7419
            End If
 7419       Sub2541
            i65528 = i5257
            i65530 = i5259
            i65526 = i65528 - i65530
            If i65526 < 0 Then
              i65526 = 0
            End If
 7482       i5241 = i5241 - i65526
            If i5241 <= 0 Then
              i5241 = 0
              s65509 = "DEAD"
              GoTo 7731
            End If
 7534       s65522 = "The Lachrymator"
            s65518 = Trim(t28_4656.s15)
            s65514 = "USER"
          Loop
 7575     Sub2541
          i65528 = i5249
          i65530 = i5251
          i65526 = i65528 - i65530
          If i65526 < 0 Then
            i65526 = 0
          End If
 7638     i5199 = i5199 - i65526
          If i5199 <= 0 Then
            i5199 = 0
            s65509 = "WON"
            GoTo 7731
          End If
 7690     s65522 = Trim(t28_4656.s15)
          s65518 = "The Lachrymator"
          s65514 = "LACH"
        Loop
 7731   If UCase(s65509) = "WUSS" Then
          Sub2459
        Else
 7763     If UCase(s65509) = "WON" Then
            Sub2477
          Else
 7795       If UCase(s65509) = "DEAD" Then
              Sub2209
            End If
          End If
        End If
 7821   Sub1593
        Sub1507
      End Sub

'! Called 1 time
      Sub Sub7852
        i4654 = FreeFile
        Open ProgPath + "lachuser.dat" For Random As i4654 Len = 172 '! This value should probably be replaced with a "SizeOf" expression
        i4480 = 0
        Do
 7903     i4480 = i4480 + 1
          Get i4654, i4480, t28_4656 '! 172 bytes
          If InStr(UCase(t28_4656.s0), UCase(Pad(User.Name, 15))) Then
            GoTo 7993
          End If
 7977   Loop While Not EOF(i4654)
 7993   Close i4654
        Open ProgPath + "armour.dat" For Random As i4654 Len = 180 '! This value should probably be replaced with a "SizeOf" expression
        Get i4654, -1, t27_4828 '! 180 bytes
        Close i4654
        Open ProgPath + "weapon.dat" For Random As i4654 Len = 180 '! This value should probably be replaced with a "SizeOf" expression
        Get i4654, -1, t26_5008 '! 180 bytes
        Close i4654
      End Sub

'! Called 1 time
      Sub Sub8108
        Cls
        MorePrompt(0)
        DisplayTextFile(ProgPath + "lfight3.BBS")
        Sub1043
        Sub1686
        Sub1507
        Sub1667
      End Sub